(info): Always switch to buffer *info* even if

current buffer is in Info mode.

diff --git a/lisp/info.el b/lisp/info.el
index 0deb67c8b591b8ef872554a5cb03bf07c2edf904..a50b0c091126c9f8bef99b12ddaf0c6e77852541 100644 (file)
--- a/lisp/info.el
+++ b/lisp/info.el
@@ -286,11 +286,10 @@ The top-level Info directory is made by combining all the files named `dir'
 in all the directories in that path."
   (interactive (if current-prefix-arg
                   (list (read-file-name "Info file name: " nil nil t))))
+  (pop-to-buffer "*info*")
   (if file
       (Info-goto-node (concat "(" file ")"))
-    (if (get-buffer "*info*")
-       (pop-to-buffer "*info*")
-      (Info-directory))))
+    (Info-directory)))
 
 ;;;###autoload
 (defun info-standalone ()